COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST1"
C00003 ENDMK
C⊗;
BEGIN "TEST1"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "GEOMED.HDR" SOURCE_FILE;
	INTEGER B1;
	B1 ← GEOMED;
	WHILE TRUE DO BEGIN ROTATE(B1,π/40,π/30,π/20);GEODPY; END;
END;